perm filename CODMAC.TEX[1,3] blob sn#546426 filedate 1980-12-03 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	% FONTS				READ MAXTEX for documentation.
C00003 00003	% NOFILL MODE, GRFX
C00008 ENDMK
C⊗;
% FONTS				READ MAXTEX for documentation.
 
	% Font definitions:
\def\ttwr{\ninepoint\tt}
\def\grafix{\gfx\baselineskip -1pt}
% NOFILL MODE, GRFX

	% Typewrite or graphics mode, without justification.  Example:
	%
	% {\grfx
	%				⊂αααααααααααα⊃
	%   line  2			~   a  box   ~
	%               line 3		%αααααααααααα$
	%
	% \par}   % this \par is essential!
	%
	% Font used is GRFX35.  You may also box result to indent it or place
	%   at your favorite spot (READ MAXTEX).
	% Inside this mode, TEX will only recognize \ { }. All other chars are
	%   taken literally (you may use \\,\{,\} in this mode).

	% As described above:
\def\grfx{\hmode\grfxnof\noindent}
	% To make boxes (READ MAXTEX)
\def\gbox#1#2{\hbox{\chcode'13←10\hboxpar#1{#2}}}	%VT=

	% Use this to allow a break in a long \nofill:
\def\nofbreak{\par\penalty-10000000000\noindent}

	% Similar to \grfx; but font used is "cmtt"; type
	%      {\typewrite <no fill> text}
\def\typewrite{\ttwr\def\ {\hskip1em{}}\hmode\nofill}
	% Same, but to make a paragraph (note \typewrite may be used imbedded
	%   in the text)
\def\typnoi{\typewrite\noindent}



% FOR internal use;  use at own risk
	% Produce "nofill" text.  Note result is a paragraph.
	%   for details.
\def\nofill{\ragged 1000000
	\parskip 0pt
	\lineskip 0pt
	\def\	{{\ms f}}	% \TAB (surprise)
	\def\
{\linebreak}			% \CR
	\chcode'1←12	% ↓
	\chcode'26←12	% ⊗
	\chcode'32←12	% ~
	\chcode'42←12	% "
	\chcode'43←12	% #
	\chcode'44←12	% $
	\chcode'45←12	% %
	\chcode'136←12	% ↑
\chcode'11←13\chcode'15←13\chcode'40←13} % tab, cr, sp
	
\def\grfxnof{\grafix
		\def\ {\char'40{}}    % \SP
		\def\\{{char'134}}
                \def\{{{char'173}}
		\def\}{{char'176}}
		\nofill}